home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / aie8911.zip / CON_HELP.ARI < prev    next >
Text File  |  1989-05-23  |  804b  |  36 lines
  1.  
  2.  
  3.  
  4. %%%%%%%%%% end prepcomp generated declarations %%%%%%%%%%%%%%%%%%%%
  5.  
  6.  
  7. :- module con_help.
  8.  
  9. :- visible disp1 / 3.
  10.  
  11.  
  12. get_conman_help :-
  13.     nl,
  14.     open_if_possible( $conman.hlp$   ,
  15.                       $ can not be opened.$,
  16.                       Inhandle),
  17.     !,
  18.     write(
  19. $~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~$),
  20.     nl,
  21.     process_file_lines( LineVar,
  22.                         Inhandle,
  23.                         not_a_file_handle,
  24.                         disp1(Inhandle,
  25.                                not_a_file_handle,
  26.                                LineVar )  ),
  27.     write($Press any key to continue...$),
  28.     flush,
  29.     get0_noecho(_),
  30.     nl.
  31.  
  32. disp1(Inhandle,
  33.        _  ,
  34.        Line    )  :-
  35.    write(Line), nl.
  36.